home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / MIS.TXT < prev    next >
Encoding:
Text File  |  1991-08-20  |  3.9 KB  |  168 lines
  1. ;
  2. ;  MIS -- (c) 1990 Chris Butler
  3. ;
  4.  
  5. ;VIDEO M
  6.  
  7.   set all off
  8.   goto top
  9. all:
  10.   set all on    ; will cycle thru all modules
  11. top:
  12.  
  13. global boxllx 0 ; mod 8 = 0
  14. global boxlly 0
  15. global boxw  488
  16. global boxh  115
  17. global boxtitle "Max with Ed the engineer"
  18. set h 17    ; key height
  19. set keycolor 14 ; keytop color in convbox = 14 (yellow)
  20. set txtboxclr 14; 
  21. cload max.clp 30 1 0      ; max's face
  22. tran on 15
  23. cload cover.clp 32 0 1 
  24.  
  25. marc:
  26. set boxtitle "  Max with Mary from MIS"
  27. set entrypoint "entry_11"
  28. pload palette1.pcx 1
  29. palette 1
  30. pfree 1
  31. cload mis.clp 31 1 0
  32. merge toursubs.txt
  33.  
  34. call steps.txt mis
  35.  
  36. label502:
  37. newbgrnd "mis1.pcx" 80 0 0 0 100 5
  38. ;mouse on
  39. set str1 "Hey, Max. Everybody down in MIS has been talking about how well the "
  40. set str2 "MAXIMO Local Area Network has worked for us."
  41. say 0 @str1 @str2
  42. waitkey 50
  43. label1a:
  44. getcmd
  45. if @0<>"backup" label503
  46. noise 500 200 50
  47. waitkey 100
  48. goto label1a
  49.  
  50. label503:
  51. set str1 "And MAXIMO's SQL database lets us import and export cost data from"
  52. set str2 " the mainframe database without programming!"
  53. say 0 @str1 @str2
  54. waitkey 50
  55. getcmd
  56. if @0=="backup" label502
  57.  
  58. label504:
  59. set str1 "You know we've been thinking about installing MAXIMO at headquarters "
  60. set str2 "for facilities maintenance. Can we modify the system for use there?"
  61. say 0 @str1 @str2
  62. waitkey 50
  63. getcmd
  64. if @0=="backup" label503
  65.  
  66. label505:
  67. set str1 "MAXIMO makes that simple, Mary. You probably want to start with chang"
  68. set str2 "ing some screen formats. Let me show you MAXIMO's Screen Painter ..."
  69. say 1 @str1 @str2
  70. waitkey 50
  71. getcmd
  72. if @0=="backup" label504
  73.  
  74. label506:
  75. newbgrnd "27a.pcx" 80 0 1 0 100 9
  76. set str1 " ... first, we start with the standard Equipment Screen ... "
  77. set str2 " "
  78. say 1 @str1 @str2
  79. waitkey 50
  80. getcmd
  81. if @0=="backup" label505
  82.  
  83. label507:
  84. newbgrnd "27b.pcx" 80 0 1 0 100 9
  85. set str1 "Here I've changed the field names, sizes and meanings. And MAXIMO let"
  86. set str2 "s me show budget fields to management and hide them from other users."
  87. say 1 @str1 @str2
  88. waitkey 50
  89. getcmd
  90. if @0=="backup" label506
  91.  
  92. label508:
  93. newbgrnd "28.pcx" 80 0 1 0 100 9
  94. set str1 "Here we've changed security so that only I can approve purchase order"
  95. set str2 "s. I can even set a dollar amount for PO authority."
  96. say 1 @str1 @str2
  97. waitkey 50
  98. getcmd
  99. if @0=="backup" label507
  100.  
  101. label509:
  102. newbgrnd "29.pcx" 80 0 1 0 100 9
  103. set str1 "And you can also modify the value list lookup tables. For example, y"
  104. set str2 "ou might want to identify different types of facility work orders."
  105. say 1 @str1 @str2
  106. waitkey 50
  107. getcmd
  108. if @0=="backup" label508
  109.  
  110. label510:
  111. set str1 "That's great. A totally different MAXIMO! Customized for facilities "
  112. set str2 "maintenance's very different needs!"
  113. say 0 @str1 @str2
  114. waitkey 50
  115. getcmd
  116. if @0=="backup" label509
  117.  
  118. label511:
  119. set str1 "Max, I understand PSDI is an IBM Business Partner. Can they help "
  120. set str2 "with our LAN designs?"
  121. say 0 @str1 @str2
  122. waitkey 50
  123. getcmd
  124. if @0=="backup" label510
  125.  
  126. label512:
  127. set str1 "Sure thing Mary. The IBM people are interconnectivity experts. PSDI c"
  128. set str2 "an have IBM Network Design Engineers come onsite to design a network."
  129. say 1 @str1 @str2
  130. waitkey 50
  131. getcmd
  132. if @0=="backup" label511
  133.  
  134. labl512a:
  135. newbgrnd "network.pcx" 112 0 1 0 100 9
  136. set str1 "Here's a diagram the PSDI sales rep left me for a new LAN configura"
  137. set str2 "tion."
  138. say 1 @str1 @str2
  139. waitkey 50
  140. getcmd
  141. if @0=="backup" label512
  142.  
  143. label513:
  144. newbgrnd "mis1.pcx" 80 0 0 0 100 9
  145. set str1 "Wonderful! This will really get us up to speed in a hurry. PSDI and I"
  146. set str2 "BM. Sounds like the winning combination."
  147. say 0 @str1 @str2
  148. waitkey 50
  149. getcmd
  150. if @0=="backup" labl512a
  151.  
  152. label514:
  153. set str1 "Yup. Well, I'll see you later, Mary. I've got a meeting with Patrick."
  154. set str2 " "
  155. say 1 @str1 @str2
  156. waitkey 50
  157. getcmd
  158. if @0=="backup" label513
  159.  
  160. ;mouse off
  161.  
  162. if @all==on linkit
  163.   link master.txt entry_11
  164. linkit:
  165.   link mgr.txt all 
  166.  
  167. ; SUBR MIS
  168.